home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / ada / gwuada_5.zip / adaed / spider / draw2.ada < prev    next >
Text File  |  1993-02-04  |  173b  |  19 lines

  1. WITH Spider; Use Spider;
  2. PROCEDURE Drawing2 IS 
  3. BEGIN 
  4. Reset; 
  5. Red;
  6. Step;
  7. Step;
  8. Blue;
  9. Turn;
  10. Step;
  11. Green;
  12. Step;
  13. Step;
  14. Step;
  15. Turn;
  16. Step;
  17. Quit;
  18. END Drawing2;
  19.